inherited frmExemptKind: TfrmExemptKind
  Left = 536
  Top = 346
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1048#1079#1084#1077#1085#1077#1085#1080#1077' '#1076#1077#1081#1089#1090#1074#1080#1103' '#1083#1100#1075#1086#1090#1099' '#1085#1072' '#1091#1089#1083#1091#1075#1091
  ClientHeight = 242
  ClientWidth = 606
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 215
    Width = 606
    inherited BitBtn1: TBitBtn
      Left = 399
    end
    inherited BitBtn2: TBitBtn
      Left = 501
    end
  end
  inherited ToolBar1: TToolBar
    Width = 606
    Height = 0
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 0
    Width = 606
    Height = 215
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      606
      215)
    object Label1: TLabel
      Left = 11
      Top = 12
      Width = 80
      Height = 14
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1051#1100#1075#1086#1090#1072
    end
    object Label10: TLabel
      Left = 11
      Top = 142
      Width = 80
      Height = 14
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1041#1102#1076#1078#1077#1090
    end
    object Label2: TLabel
      Left = 11
      Top = 33
      Width = 80
      Height = 14
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1059#1089#1083#1091#1075#1072
    end
    object Label3: TLabel
      Left = 11
      Top = 55
      Width = 80
      Height = 14
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1058#1080#1087' '#1076#1077#1081#1089#1090#1074#1080#1103
    end
    object Label4: TLabel
      Left = 11
      Top = 164
      Width = 80
      Height = 14
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1057' '#1076#1072#1090#1099
    end
    object Label5: TLabel
      Left = 11
      Top = 98
      Width = 80
      Height = 14
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1057#1090#1072#1074#1082#1072
    end
    object Label8: TLabel
      Left = 11
      Top = 120
      Width = 80
      Height = 14
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1047#1072#1082#1086#1085
    end
    object lLessNorm: TLabel
      Left = 11
      Top = 77
      Width = 80
      Height = 14
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1058#1080#1087' '#1076#1086#1083#1080
    end
    object dtBdate: TDBDateTimeEditEh
      Left = 98
      Top = 160
      Width = 89
      Height = 19
      AlwaysShowBorder = True
      DataField = 'BDATE'
      DataSource = dscKind
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 7
      Visible = True
    end
    object lcbBudget: TDBLookupComboboxEh
      Left = 98
      Top = 138
      Width = 496
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akLeft, akTop, akRight]
      DataField = 'BUDGET'
      DataSource = dscKind
      DropDownBox.Sizable = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dscBudget
      Style = csDropDownEh
      TabOrder = 6
      Visible = True
    end
    object lcbExempttype: TDBLookupComboboxEh
      Left = 98
      Top = 10
      Width = 496
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akLeft, akTop, akRight]
      Color = clInactiveCaptionText
      DataField = 'EXEMPTTYPE_ID'
      DataSource = dscKind
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dscExempttypes
      ReadOnly = True
      TabOrder = 0
      Visible = True
    end
    object lcbKindTypes: TDBLookupComboboxEh
      Left = 98
      Top = 54
      Width = 496
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akLeft, akTop, akRight]
      DataField = 'KIND_EXT'
      DataSource = dscKind
      DropDownBox.Sizable = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dscKindTypes
      TabOrder = 2
      Visible = True
    end
    object lcbLaw: TDBLookupComboboxEh
      Left = 98
      Top = 117
      Width = 496
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akLeft, akTop, akRight]
      DataField = 'LAW'
      DataSource = dscKind
      DropDownBox.Sizable = True
      EditButtons = <>
      Flat = True
      KeyField = 'LAW'
      ListField = 'LAW'
      ListSource = dscLaw
      Style = csDropDownEh
      TabOrder = 5
      Visible = True
    end
    object lcbLessNorm: TDBLookupComboboxEh
      Left = 98
      Top = 75
      Width = 496
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akLeft, akTop, akRight]
      DataField = 'KIND_NORM'
      DataSource = dscKind
      DropDownBox.Sizable = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dscLessnorm
      TabOrder = 3
      Visible = True
    end
    object lcbService: TDBLookupComboboxEh
      Left = 98
      Top = 32
      Width = 496
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akLeft, akTop, akRight]
      Color = clInactiveCaptionText
      DataField = 'GROUP_ID'
      DataSource = dscKind
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dscServices
      ReadOnly = True
      TabOrder = 1
      Visible = True
    end
    object dbeVal: TDBEditEh
      Left = 98
      Top = 96
      Width = 87
      Height = 19
      AlwaysShowBorder = True
      DataField = 'VAL'
      DataSource = dscKind
      EditButtons = <>
      Flat = True
      TabOrder = 4
      Visible = True
    end
    object dbcbSupplier: TDBCheckBoxEh
      Left = 20
      Top = 186
      Width = 91
      Height = 14
      Alignment = taLeftJustify
      AlwaysShowBorder = True
      Caption = #1054#1089#1085#1086#1074#1085#1086#1081' '#1074#1080#1076
      DataField = 'ADDITIONAL'
      DataSource = dscKind
      Flat = True
      TabOrder = 8
      ValueChecked = '0'
      ValueUnchecked = '1'
    end
  end
  inherited ActionList1: TActionList
    Left = 20
    Top = 8
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    StoredProps.Strings = (
      '<P>.Left'
      '<P>.Top')
    Left = 20
    Top = 39
  end
  object dsKindTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    EXEMPT_KINDEXTYPES '
      'order by 1')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 281
    Top = 5
    object dsKindTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsKindTypesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dscKindTypes: TDataSource
    DataSet = dsKindTypes
    Left = 315
    Top = 5
  end
  object dsLessnorm: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    PRIOR'
      'FROM'
      '    EXEMPT_KINDNORMS '
      'order by 3')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 281
    Top = 37
    object dsLessnormID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsLessnormNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object dsLessnormPRIOR: TFIBSmallIntField
      FieldName = 'PRIOR'
    end
  end
  object dscLessnorm: TDataSource
    DataSet = dsLessnorm
    Left = 315
    Top = 37
  end
  object trKind: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 238
    Top = 6
  end
  object dsKind: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE EXEMPTKINDS'
      'SET '
      '    KIND_EXT = :KIND_EXT,'
      '    KIND_NORM = :KIND_NORM,'
      '    BUDGET = :BUDGET,'
      '    LAW = :LAW,'
      '    VAL = :VAL,'
      '    BDATE = :BDATE,'
      '    ADDITIONAL = :ADDITIONAL'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO EXEMPTKINDS('
      '    ID,'
      '    EXEMPTTYPE_ID,'
      '    GROUP_ID,'
      '    KIND_EXT,'
      '    KIND_NORM,'
      '    BUDGET,'
      '    LAW,'
      '    VAL,'
      '    BDATE,'
      '    ADDITIONAL'
      ')'
      'VALUES('
      '    :ID,'
      '    :EXEMPTTYPE_ID,'
      '    :GROUP_ID,'
      '    :KIND_EXT,'
      '    :KIND_NORM,'
      '    :BUDGET,'
      '    :LAW,'
      '    :VAL,'
      '    :BDATE,'
      '    :ADDITIONAL'
      ')')
    SelectSQL.Strings = (
      
        'select ek.id, ek.exempttype_id, ek.group_id, ek.kind_ext, ek.kin' +
        'd_norm,'
      
        '       ek.budget, ek.law, ek.val, ek.bdate, coalesce(ek.addition' +
        'al, 0) as additional,'
      '       ek.createdate, ek.modifydate,'
      
        '       (select rname from user_getfullname (ek.createuserid)) as' +
        ' createuser,'
      
        '       (select rname from user_getfullname (ek.modifyuserid)) as' +
        ' modifyuser'
      '  from exemptkinds ek'
      '  where ek.id = :ek_id')
    Transaction = trKind
    Database = MAINDM.pMainDatabase
    Left = 205
    Top = 5
    object dsKindID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsKindEXEMPTTYPE_ID: TFIBIntegerField
      FieldName = 'EXEMPTTYPE_ID'
    end
    object dsKindGROUP_ID: TFIBIntegerField
      FieldName = 'GROUP_ID'
    end
    object dsKindKIND_EXT: TFIBIntegerField
      FieldName = 'KIND_EXT'
    end
    object dsKindKIND_NORM: TFIBIntegerField
      FieldName = 'KIND_NORM'
    end
    object dsKindBUDGET: TFIBIntegerField
      FieldName = 'BUDGET'
    end
    object dsKindLAW: TFIBStringField
      FieldName = 'LAW'
      Size = 60
      EmptyStrToNull = True
    end
    object dsKindVAL: TFIBBCDField
      FieldName = 'VAL'
      Size = 2
      RoundByScale = True
    end
    object dsKindBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object dsKindADDITIONAL: TFIBSmallIntField
      FieldName = 'ADDITIONAL'
    end
    object dsKindCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object dsKindMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object dsKindCREATEUSER: TFIBStringField
      FieldName = 'CREATEUSER'
      Size = 150
      EmptyStrToNull = True
    end
    object dsKindMODIFYUSER: TFIBStringField
      FieldName = 'MODIFYUSER'
      Size = 150
      EmptyStrToNull = True
    end
  end
  object dsBudget: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    RBUDGET_TYPE '
      'order by 2')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 281
    Top = 177
    object dsBudgetID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsBudgetNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsLaw: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT distinct LAW'
      'FROM EXEMPTKINDS '
      'order by 1')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 281
    Top = 145
    object dsLawLAW: TFIBStringField
      FieldName = 'LAW'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dscLaw: TDataSource
    DataSet = dsLaw
    Left = 315
    Top = 145
  end
  object dscBudget: TDataSource
    DataSet = dsBudget
    Left = 315
    Top = 177
  end
  object dscKind: TDataSource
    DataSet = dsKind
    Left = 171
    Top = 5
  end
  object dsServices: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SERVICES '
      'where group_id = 0')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 173
    Top = 37
    object dsServicesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsServicesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dscServices: TDataSource
    DataSet = dsServices
    Left = 207
    Top = 37
  end
  object dsExempttypes: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    EXEMPTTYPES ')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 173
    Top = 65
    object dsExempttypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsExempttypesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dscExempttypes: TDataSource
    DataSet = dsExempttypes
    Left = 207
    Top = 65
  end
end
